Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue54/System/FileSysDemo/UFileSys.dfm/UFileSys.txt

Text File | 2000-01-07 | 5.6 KB | 304 lines

object Form1: TForm1
  Left = 312
  Top = 141
  BorderStyle = bsDialog
  Caption = 'FileSystem Testbed'
  ClientHeight = 305
  ClientWidth = 739
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 12
    Width = 65
    Height = 13
    Caption = 'Current Drive:'
    FocusControl = DriveList
  end
  object VolSize: TLabel
    Left = 8
    Top = 40
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'VolSize'
  end
  object VolName: TLabel
    Left = 8
    Top = 60
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'VolName'
  end
  object FSystem: TLabel
    Left = 8
    Top = 80
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'FSystem'
  end
  object SerNum: TLabel
    Left = 8
    Top = 100
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'SerNum'
  end
  object DrvType: TLabel
    Left = 8
    Top = 120
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'DrvType'
  end
  object FreeSp: TLabel
    Left = 8
    Top = 140
    Width = 225
    Height = 13
    AutoSize = False
    Caption = 'FreeSp'
  end
  object Bevel1: TBevel
    Left = 248
    Top = 10
    Width = 2
    Height = 165
    Shape = bsLeftLine
  end
  object Label2: TLabel
    Left = 260
    Top = 36
    Width = 59
    Height = 13
    Caption = 'Sub-Folders:'
    FocusControl = FolderList
  end
  object Label16: TLabel
    Left = 260
    Top = 12
    Width = 69
    Height = 13
    Caption = 'Current Folder:'
  end
  object FileCount: TLabel
    Left = 256
    Top = 133
    Width = 44
    Height = 13
    Caption = 'FileCount'
  end
  object TotFileSize: TLabel
    Left = 256
    Top = 152
    Width = 52
    Height = 13
    Caption = 'TotFileSize'
  end
  object Bevel2: TBevel
    Left = 8
    Top = 185
    Width = 505
    Height = 2
    Shape = bsBottomLine
  end
  object Label3: TLabel
    Left = 8
    Top = 200
    Width = 89
    Height = 13
    Caption = 'Watch Directory:'
  end
  object Bevel3: TBevel
    Left = 344
    Top = 200
    Width = 0
    Height = 97
    Shape = bsLeftLine
  end
  object Bevel4: TBevel
    Left = 336
    Top = 199
    Width = 9
    Height = 97
    Shape = bsLeftLine
  end
  object DriveList: TComboBox
    Left = 80
    Top = 8
    Width = 153
    Height = 21
    Style = csDropDownList
    Color = 11031552
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 0
    OnChange = DriveListChange
  end
  object FolderList: TComboBox
    Left = 337
    Top = 32
    Width = 176
    Height = 21
    Style = csDropDownList
    Color = 11031552
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 1
    OnChange = FolderListChange
  end
  object CurFolder: TEdit
    Left = 336
    Top = 8
    Width = 393
    Height = 21
    Color = 11031552
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnKeyPress = CurFolderKeyPress
  end
  object GroupBox1: TGroupBox
    Left = 256
    Top = 61
    Width = 153
    Height = 60
    Caption = 'File Attributes '
    TabOrder = 3
    object cbHidden: TCheckBox
      Tag = 1
      Left = 8
      Top = 32
      Width = 57
      Height = 17
      Caption = 'Hidden'
      TabOrder = 0
      OnClick = cbReadOnlyClick
    end
    object cbSystem: TCheckBox
      Tag = 2
      Left = 88
      Top = 16
      Width = 57
      Height = 17
      Caption = 'System'
      TabOrder = 1
      OnClick = cbReadOnlyClick
    end
    object cbReadOnly: TCheckBox
      Left = 8
      Top = 16
      Width = 73
      Height = 17
      Caption = 'Read-Only'
      TabOrder = 2
      OnClick = cbReadOnlyClick
    end
    object cbArchive: TCheckBox
      Tag = 3
      Left = 88
      Top = 32
      Width = 57
      Height = 17
      Caption = 'Archive'
      TabOrder = 3
      OnClick = cbReadOnlyClick
    end
  end
  object FileList: TListBox
    Left = 520
    Top = 32
    Width = 209
    Height = 265
    Color = 11031552
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 13
    ParentFont = False
    TabOrder = 4
  end
  object Button1: TButton
    Left = 420
    Top = 80
    Width = 89
    Height = 25
    Caption = 'Folder Size...'
    TabOrder = 5
    OnClick = Button1Click
  end
  object WatchDirName: TEdit
    Left = 96
    Top = 198
    Width = 225
    Height = 21
    Color = 11031552
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnChange = WatchDirNameChange
    OnKeyPress = WatchDirNameKeyPress
  end
  object WatchSubs: TCheckBox
    Left = 8
    Top = 232
    Width = 137
    Height = 17
    Caption = 'Watch subdirectories'
    TabOrder = 7
  end
  object StartButton: TButton
    Left = 176
    Top = 246
    Width = 65
    Height = 25
    Caption = 'Start'
    Enabled = False
    TabOrder = 8
    OnClick = StartButtonClick
  end
  object StopButton: TButton
    Left = 248
    Top = 246
    Width = 65
    Height = 25
    Caption = 'Stop'
    Enabled = False
    TabOrder = 9
    OnClick = StopButtonClick
  end
end